home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-12_1989_-_de_Side_B.d64 / ultra-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  49 lines
  1. 0 rem ------------------------
  2. 1 rem -   ultra basic-demo   -
  3. 2 rem ------------------------
  4. 3 :
  5. 4 graph:col0,0,15:clear:gracol15,0:fori=2to80step2.78
  6. 5 circle160,100,i:circle0,0,i:circle319,199,i:next:fori=0to6:brdscr:next
  7. 6 spacewt:clear:gracol7,0:fori=160to255step3
  8. 7 circle160,100,i:next
  9. 8 spacewt:clear:gracol1,0:fori=0to200
  10. 9 setrnd(0)*319,rnd(0)*199:next
  11. 10 x2=0:y2=47:forx=0to318:x1=x:y1=sin(x/319*4*(NULL))*47+47
  12. 11 setx1,y1:setx1+1,y1:setx1,y1+1:setx1+1,y1+1
  13. 12 setx1,199-y1:setx1+1,199-y1:setx1,198-y1:setx1+1,198-y1
  14. 13 next
  15. 14 fori=0to319:seti,0:seti,199:next:fori=0to199:set0,i:set319,i:next
  16. 15 spacewt:brdscr:invert:spacewt:invert:brdscr
  17. 16 clear:gracol13,5:col5,0,0:fori=255to0step-2:circle160,100,i:next
  18. 17 spacewt:brdscr:spacewt:clear:gracol7,2:col10,0,0:ii=.0428571429*3
  19. 18 fori=0to2*(NULL)stepii:circle160+70*sin(i),100+70*cos(i),20
  20. 19 circle160+70*sin(i),100+70*cos(i),10:next:spacewt
  21. 20 clear:col0,0,0:gracol3,6:fori=0to100:setrnd(0)*319,rnd(0)*199:next
  22. 21 fori=0to5:spacewt:invert:next:brdscr:brdscr
  23. 22 gracol7,0:clear:col0,0,0:forx=-80to80step3
  24. 23 y=20*sqr(1-x^2/80^2):circle160+x,100+y,11:circle160+x,100-y,11:next
  25. 24 fori=0to200:setrnd(0)*319,rnd(0)*199:next
  26. 25 spacewt:clear:gracol5,0:forii=10to1step-1
  27. 26 fori=2to60stepii:circle160,100,i:nexti,ii
  28. 27 spacewt:brdscr:clear:gracol15,0:x2=0:y2=97
  29. 28 forx=12to309step7:x1=x:y1=sin(x/319*4*(NULL))*60+97
  30. 29 fori=2to12step3:circlex1,y1,i:circlex1,199-y1,i:nexti,x
  31. 30 fori=0to319:seti,99:nexti
  32. 31 fori=0to319step16:forii=97to101:seti,ii:nextii,i
  33. 32 spacewt:gracol12,0:fori=0to35:next:gracol11,0:fori=0to35:next:gracol0,0
  34. 33 clear:gracol15,11:fori=0to50
  35. 34 circlernd(0)*319,rnd(0)*199,rnd(0)*70:next
  36. 35 spacewt:brdscr:gracol12,11:brdscr:gracol11,11:clear
  37. 36 gracol3,0
  38. 37 fori=2to255step2:circle160,100,abs(70-i):circle160,100,(70-i)and255:next
  39. 38 sys49152
  40. 39 :
  41. 40 rem --------------------------------
  42. 41 rem fragen? dann schreibt an:
  43. 42 rem   christian fieres
  44. 43 rem   vogelwaidstrasse 2
  45. 44 rem   6457 maintal 3
  46. 45 rem
  47. 46 rem   tel. 06181/431629
  48. 47 rem --------------------------------
  49.